home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
WINPASCL
/
CASE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-08-07
|
267b
|
18 lines
program cases(input, output);
var
i : integer;
begin
repeat
write( 'Enter an integer, 0 to end : ' );
readln(i);
case i of
0:;
1:i:=i*2;
2:i:=i*3;
3:i:=i*4;
end;
writeln(i);
until i = 0;
end.